pre code {
  font-size: 14px; /* Adjust the font size as desired */
}

Sampling & Re-grouping

names <- sample(c(
  "John", "Jon", "Jhon", "Jonh",
  "Michael", "Micheal", "Michel",
  "Emily", "Emili", "Emely", "Emiley",
  "Sarah", "Sara", "Sera", "Serah",
  "Matthew", "Mathew", "Mathhew",
  "Jessica", "Jessika", "Jesica", "Jessicah",
  "Daniel", "Daniele", "Danial",
  "Elizabeth", "Elisabeth", "Elisabet",
  "David", "Davi", "Davide",
  "Jennifer", "Jennipher", "Jenifer",
  "Christopher", "Cristopher", "Christoper",
  "Amanda", "Amandah", "Amandaa",
  "Andrew", "Andrw", "Andew",
  "Stephanie", "Stephany", "Stephaine",
  "Joshua", "Josh", "Jshua"
), replace = FALSE)

group <- function(names)
{

val2=NULL
for (i in names)
{
  val=agrep(i,names)
   val2=c(val2,val)
   
}
val2=unique(val2)


return(names[val2])
}

group(names)
##  [1] "John"        "Jon"         "Jonh"        "Stephanie"   "Davi"       
##  [6] "Daniele"     "Danial"      "Daniel"      "David"       "Davide"     
## [11] "Micheal"     "Michel"      "Emily"       "Emili"       "Emely"      
## [16] "Emiley"      "Mathhew"     "Mathew"      "Matthew"     "Jessika"    
## [21] "Jessicah"    "Jessica"     "Jenifer"     "Jennifer"    "Amandaa"    
## [26] "Amandah"     "Amanda"      "Andew"       "Andrw"       "Andrew"     
## [31] "Sarah"       "Sara"        "Serah"       "Stephany"    "Christopher"
## [36] "Cristopher"  "Christoper"  "Stephaine"   "Elizabeth"   "Elisabeth"  
## [41] "Sera"        "Jennipher"   "Josh"        "Joshua"      "Jhon"       
## [46] "Elisabet"    "Jshua"       "Jesica"      "Michael"